home *** CD-ROM | disk | FTP | other *** search
/ Invisible Universe / Invisible Universe (1995)(Voyager)[Mac-PC].iso / mac / UNIVERSE / INTRO2.DIR / 00135_Script_135 < prev   
Text File  |  1995-11-08  |  669b  |  33 lines
  1. on fadeSoundChan chan
  2.   -- Be sure to update copy that lives in INTRO2.DIR
  3.   
  4.   if not soundBusy(chan) then exit
  5.   
  6.   if the multiSound then
  7.     
  8.     set v = the volume of sound chan
  9.     
  10.     repeat while v > 0
  11.       set v = v / 2
  12.       set the volume of sound chan = v
  13.       set t = the ticks + 30
  14.       repeat while the ticks < t 
  15.         go to the frame
  16.       end repeat
  17.     end repeat
  18.     
  19.   else
  20.     
  21.     sound fadeOut chan,120
  22.     set t = the ticks + 360 -- dmd this long?
  23.     repeat while the ticks < t
  24.       updateStage  
  25.     end repeat
  26.     
  27.   end if
  28.   
  29.   sound stop chan
  30.   set the volume of sound chan = 255
  31. end fadeSoundChan
  32.  
  33.